home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PACKAGES / RNEWS.ELC < prev    next >
Text File  |  1993-03-28  |  22KB  |  191 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 16:39:49 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/rnews.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!ê┬├!ç" [provide rnews require mail-utils] 2)
  14. (autoload 'rmail-output "rmailout" "\
  15. Append this message to Unix mail file named FILE-NAME." t)
  16. (autoload 'news-reply "rnewspost" "\
  17. Compose and post a reply to the current article on USENET.
  18. While composing the reply, use \\[mail-yank-original] to yank the original
  19. message into it." t)
  20. (autoload 'news-mail-other-window "rnewspost" "\
  21. Send mail in another window.
  22. While composing the message, use \\[mail-yank-original] to yank the
  23. original message into it." t)
  24. (autoload 'news-post-news "rnewspost" "\
  25. Begin editing a new USENET news article to be posted." t)
  26. (autoload 'news-mail-reply "rnewspost" "\
  27. Mail a reply to the author of the current article.
  28. While composing the reply, use \\[mail-yank-original] to yank the original
  29. message into it." t)
  30. (defvar news-group-hook-alist nil "\
  31. Alist of (GROUP-REGEXP . HOOK) pairs.
  32. Just before displaying a message, each HOOK is called
  33. if its GROUP-REGEXP matches the current newsgroup name.")
  34. (byte-code "└┴!¼ä┬├!└ç" [boundp rmail-last-file expand-file-name "~/mbox.news"] 2)
  35. (defvar news-startup-file "$HOME/.newsrc" "\
  36. Contains ~/.newsrc")
  37. (defvar news-certification-file "$HOME/.news-dates" "\
  38. Contains ~/.news-dates")
  39. (defvar news-ignored-headers "^Path:\\|^Posting-Version:\\|^Article-I.D.:\\|^Expires:\\|^Date-Received:\\|^References:\\|^Control:\\|^Xref:\\|^Lines:\\|^Posted:\\|^Relay-Version:\\|^Message-ID:\\|^Nf-ID:\\|^Nf-From:\\|^Approved:\\|^Sender:" "\
  40. All random fields within the header of a message.")
  41. (byte-code "└┴!¼é┬└├!¼é─└┼!¼é┬└╞!¼â┬└╟!¼â┬└╚!¼â┬┬ç" [boundp news-mode-map nil news-read-first-time-p t news-user-group-list news-current-news-group news-current-group-begin news-current-group-end] 2)
  42. (defvar news-current-certifications nil "\
  43. An assoc list of a group name and the time at which it is
  44. known that the group had no new traffic")
  45. (defvar news-current-certifiable nil "\
  46. The time when the directory we are now working on was written")
  47. (defvar news-message-filter nil "\
  48. User specifiable filter function that will be called during
  49. formatting of the news file")
  50. (defvar news-list-of-files nil "\
  51. Global variable in which we store the list of files
  52. associated with the current newsgroup")
  53. (defvar news-list-of-files-possibly-bogus nil "\
  54. variable indicating we only are guessing at which files are available.
  55. Not currently used.")
  56. (byte-code "└┴!¼é┬┬ç" [boundp news-group-article-assoc nil] 2)
  57. (defvar news-current-message-number 0 "\
  58. Displayed Article Number")
  59. (defvar news-total-current-group 0 "\
  60. Total no of messages in group")
  61. (byte-code "└┴!¼é┬┬ç" [boundp news-unsubscribe-groups nil] 2)
  62. (defvar news-point-pdl nil "\
  63. List of visited news messages.")
  64. (byte-code "└┴!¼é┬└ç" [boundp news-no-jumps-p t] 2)
  65. (defvar news-buffer nil "\
  66. Buffer into which news files are read.")
  67. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧Mç" [news-push (macro . #[(item ref) "└    ┬     EEç" [setq ref cons item] 5]) news-cadr (macro . #[(x) "└┴\nDDç" [car cdr x] 3]) news-cdar (macro . #[(x) "└┴\nDDç" [cdr car x] 3]) news-caddr (macro . #[(x) "└┴ë\nDDDç" [car cdr x] 4]) news-cadar (macro . #[(x) "└┴└\nDDDç" [car cdr x] 4]) news-caadr (macro . #[(x) "└ë┴\nDDDç" [car cdr x] 4]) news-cdadr (macro . #[(x) "└┴└\nDDDç" [cdr car x] 4]) news-wins (macro . #[(pfx index) "└┴\n├─DFDç" [file-exists-p concat pfx "/" int-to-string index] 6])] 2)
  68. (defvar news-max-plausible-gap 2 "\
  69. * In an rnews directory, the maximum possible gap size.
  70. A gap is a sequence of missing messages between two messages that exist.
  71. An empty file does not contribute to a gap -- it ends one.")
  72. (byte-code "└┴Mê┬├Mê─┼Mç" [news-find-first-and-last #[(prefix base) "└    ┬├ !Q!¡ï┼     ╞#┼     ╟#Bç" [file-exists-p prefix "/" int-to-string base news-find-first-or-last -1 1] 5] news-/ (macro . #[(a1 a2) "└    \nEç" [/ a1 a2] 3]) news-find-first-or-last #[(pfx base dirn) "┬ ─┼\\!Q!½åë\\¬m╟Ñë╟Ñë╔U¼₧┬ ─┼\\\\!Q!½à\\╟Ñë¬^)\n    _ë╔U¼Ö┬ ─┼\\\\!Q!¼ë    Zë¬c╔U½å\\¬ï╦ \\\\    #*ç" [dirn original-dir file-exists-p pfx "/" int-to-string base 2 offset 0 news-max-plausible-gap news-find-first-or-last] 8]] 2)
  73. (fset 'rnews #[nil "└ ┬├!ê─┼╞!ë!ê╚ ê        ╩ ╠ ê═ ╬═!ê╧╨!ê╤╥!ê╙ ê╘ ê╒ )ç" [buffer-name last-buffer make-local-variable rmail-last-file switch-to-buffer get-buffer-create "*news*" news-buffer news-mode news-buffer-save nil buffer-read-only erase-buffer t set-buffer-modified-p sit-for 0 message "Getting new USENET news..." news-set-mode-line news-get-certifications news-get-new-news] 3 "\
  74. Read USENET news for groups for which you are a member and add or
  75. delete groups.
  76. You can reply to articles posted and send articles to any group.
  77.  
  78. Type \\[describe-mode] once reading news to get a list of rnews commands." nil])
  79. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mç" [news-group-certification #[(group) "└    \n\"úç" [assoc group news-current-certifications] 3] news-set-current-certifiable #[nil "┴┬├ #P╞╟╚!«ü!8ë    )ç" [news-path string-subst-char 47 46 news-current-news-group file 5 file-attributes file-symlink-p news-current-certifiable] 5] news-get-certifications #[nil "è└ï)ç" [((byte-code "└┴┬Åóëç" [var (byte-code "└    !├\n!┼\n!¡î╞ ╟\"ê╚Ä╔╩ !)*ç" [substitute-in-file-name news-certification-file file find-file-noselect buf file-exists-p switch-to-buffer norecord ((kill-buffer buf)) read-from-string buffer-string] 3) ((error)) news-current-certifications] 3))] 1] news-write-certifications #[nil "è└ï)ç" [((byte-code "└É┴\n!æê├└!┼ !ê╞╟!!ê╔ !)ç" ["*CeRtIfIcAtIoNs*" print news-current-certifications get-buffer buf switch-to-buffer write-file substitute-in-file-name news-certification-file kill-buffer] 3))] 1] news-set-current-group-certification #[nil "└    \n\"ë½à í¬ç     B\nBë)ç" [assoc news-current-news-group news-current-certifications cgc news-current-certifiable] 4]] 2)
  80. (fset 'news-set-minor-modes #[nil "└    ┬ ─ RBC╞╟!«äëç" [foo news-current-message-number "/" news-total-current-group news-get-attribute-string news-minor-modes boundp minor-mode-alist minor-modes] 5 "\
  81. Creates a minor mode list that has group name, total articles,
  82. and attribute for current article."])
  83. (fset 'news-set-message-counters #[nil "?¡â┴ëç" [news-list-of-files 0 news-current-message-number] 2 "\
  84. Scan through current news-groups filelist to figure out how many messages
  85. are there. Set counters for use with minor mode display."])
  86. (byte-code "ä¡┴ ┬!ê├─┼#ê├╞╟#ê├╚╔#ê├╩╦#ê├╠═#ê├╬╧#ê├╨╤#ê├╥╙#ê├╘╙#ê├╒╓#ê├╫╪#ê├┘┌#ê├█▄#ê├▌▐#ê├▀α#ê├ßΓ#ê├πΣ#ê├σµ#ê├τΦ#ê├ΘΩ#ê├δ∞#ê├φε#ê├∩≡#ê├±≥#ê├≤⌠#ê├⌡÷#ê├≈°#ê┴ç" [news-mode-map make-keymap suppress-keymap define-key "." beginning-of-buffer " " scroll-up "" scroll-down "n" news-next-message "c" news-make-link-to-message "p" news-previous-message "j" news-goto-message "q" news-exit "e" "j" news-goto-news-group "n" news-next-group "p" news-previous-group "l" news-list-news-groups "?" describe-mode "g" news-get-new-news "f" news-reply "m" news-mail-other-window "a" news-post-news "r" news-mail-reply "o" news-save-item-in-file "" rmail-output "t" news-show-all-headers "x" news-force-update "A" news-add-news-group "u" news-unsubscribe-current-group "U" news-unsubscribe-group "" news-caesar-buffer-body] 4)
  87. (fset 'news-mode #[nil "└ ê┴┬!ê├┴─!ê┴┼!ê╞┴╟!ê╞┴╚!ê┴╔!ê┴╩!ê╦\n┴╠!ê═╧╨!½à╤¬â╙╘ ê╒!ê╫!ê█▄!ç" [kill-all-local-variables make-local-variable news-read-first-time-p t news-current-news-group news-current-group-begin 0 news-current-message-number news-total-current-group news-buffer-save version-control never news-point-pdl news-mode major-mode boundp minor-mode-alist ("NEWS" news-minor-modes) mode-name "NEWS" news-set-mode-line set-syntax-table text-mode-syntax-table use-local-map news-mode-map text-mode-abbrev-table local-abbrev-table run-hooks news-mode-hook] 2 "\
  88. News Mode is used by M-x rnews for reading USENET Newsgroups articles.
  89. New readers can find additional help in newsgroup: news.announce.newusers .
  90. All normal editing commands are turned off.
  91. Instead, these commands are available:
  92.  
  93. .    move point to front of this news article (same as Meta-<).
  94. Space    scroll to next screen of this news article.
  95. Delete  scroll down previous page of this news article.
  96. n    move to next news article, possibly next group.
  97. p    move to previous news article, possibly previous group.
  98. j    jump to news article specified by numeric position.
  99. M-j     jump to news group.
  100. M-n     goto next news group.
  101. M-p     goto previous news group.
  102. l       list all the news groups with current status.
  103. ?       print this help message.
  104. C-c C-r caesar rotate all letters by 13 places in the article's body (rot13).
  105. g       get new USENET news.
  106. f       post a reply article to USENET.
  107. a       post an original news article.
  108. A       add a newsgroup. 
  109. o    save the current article in the named file (append if file exists).
  110. C-o    output this message to a Unix-format mail file (append it).
  111. c       \"copy\" (actually link) current or prefix-arg msg to file.
  112.     warning: target directory and message file must be on same device
  113.         (UNIX magic)
  114. t       show all the headers this news article originally had.
  115. q    quit reading news after updating .newsrc file.
  116. e    exit updating .newsrc file.
  117. m    mail a news article.  Same as C-x 4 m.
  118. x       update last message seen to be the current message.
  119. r    mail a reply to this news article.  Like m but initializes some fields.
  120. u       unsubscribe from current newsgroup.
  121. U       unsubscribe from specified newsgroup." nil])
  122. (byte-code "└┴Mê┬├Mç" [string-subst-char #[(new old string) "└┬├ !!╞└O╟ \"ë½ê    Iê¬p)ç" [nil index regexp-quote char-to-string old string 0 string-match new] 3] news-update-message-read (macro . #[(ngroup nno) "└┴┬ ─EDEç" [setcar news-cdadr assoc ngroup news-group-article-assoc nno] 5])] 2)
  123. (fset 'news-parse-range #[(number-string) "└┴\n\"ë½É─\n┼ O!─\n T╞O!B¬ç─\n!ëëB)ç" [string-match "-" number-string n string-to-int 0 nil] 6 "\
  124. Parse string representing range of numbers of he form <a>-<b>
  125. to a list (a . b)"])
  126. (fset 'news-get-new-news #[nil "½â┴ ê┬┬─┼\"ê╟!┬    è╩    !┬ëëë  ëqê╨bê╤╥┬╙#½╩`╨yê`┬ê` ╘Z{ ╒ {!╫ \"½ê─╪ \"ê¬ù B @AAED B)¬/┘!ê.ƒ─┌!ê█!ê½É▌@┬\"¼êAë¼p¼à─▐!¬â─▀!*ç" [news-user-group-list news-update-newsrc-file nil news-group-article-assoc message "Looking up %s file..." news-startup-file substitute-in-file-name temp-user-groups file find-file-noselect tem endofline end start newsrcbuf 0 search-forward ": " t 2 news-parse-range range assoc "You are subscribed twice to %s; I ignore second" kill-buffer "Prefrobnicating..." switch-to-buffer news-buffer news-read-files-into-buffer "No news is good news." ""] 6 "\
  127. Get new USENET news, if there is any for the current user." nil])
  128. (fset 'news-list-news-groups #[nil "└Éè    qê┬cê├cê ┼¡║╚@    \"ë\n@cê½â╦¬ü╠jê═\nA@A@!cê½à╬cê¬â╧jêA?)¬B+æç" ["*Newsgroups*" standard-output "News Group        Msg No.       News Group        Msg No.\n" "-------------------------       -------------------------\n" news-user-group-list nil flag temp assoc news-group-article-assoc item 52 20 int-to-string "\n" 33] 5 "\
  129. Display all the news groups to which you belong." nil])
  130. (fset 'news-set-mode-line #[nil "└    ¿½à┬    !¬ü├─¿½à┬!¬üR╟╔╩ë╦GZ]OQ ═╬!ê╧╩!ç" [" " news-current-message-number int-to-string "??" "/" news-current-group-end mode-line-process "NEWS: " news-current-news-group "                 " 0 17 mode-line-buffer-identification set-buffer-modified-p t sit-for] 7 "\
  131. Set mode line string to something useful."])
  132. (fset 'news-goto-news-group #[(gp) "└┴\n\"ê├\n!ê└─\n\"ç" [message "Jumping to news group %s..." gp news-select-news-group "Jumping to news group %s... done."] 3 "\
  133. Takes a string and goes to that news group." (byte-code "└┴\n\"Cç" [completing-read "NewsGroup: " news-group-article-assoc] 3)])
  134. (fset 'news-select-news-group #[(gp) "└    \n\"ë¼å─┼    \"¬û└\n\"A@A@Aáê╚ @╔\"ê╩ )ç" [assoc gp news-group-article-assoc grp error "Group %s not subscribed to" news-current-news-group news-point-pdl news-read-files-into-buffer nil news-set-mode-line] 4])
  135. (fset 'news-goto-message #[(arg) "¼à┴┬├\"┼ !ç" [current-prefix-arg read-no-blanks-input "Go to article: " "" arg news-select-message] 3 "\
  136. Goes to the article ARG in current newsgroup." "p"])
  137. (fset 'news-select-message #[(arg) ";½ä┴!\n├─┼#╟R╔!½ª╩  @A>A@«ü╬U½å @íê╨!ê╤ )¬ä╥╙\")ç" [arg string-to-int news-path string-subst-char 47 46 news-current-news-group "/" file file-exists-p nil buffer-read-only news-point-pdl news-list-of-files 0 news-current-message-number news-read-in-file news-set-mode-line error "Article %d nonexistent"] 5])
  138. (fset 'news-force-update #[nil "@    íê┬├    \"ç" [news-point-pdl news-current-message-number message "Updated to %d"] 3 "\
  139. updates the position of last article read in the current news group" nil])
  140. (fset 'news-next-message #[(arg) "    \\ë W¼à\n V½Ü┼U½ç╞ ê╟ ¬»╚U½ä╔ ¬ª╩╦!¬í╠    \"╧W½î╨[SA@8!¬ê╨S@8!))ç" [arg news-current-message-number no news-current-group-begin news-current-group-end 1 news-set-current-group-certification news-next-group -1 news-previous-group error "Article out of range" news-get-motion-lists news-list-of-files plist 0 news-select-message] 4 "\
  141. Move ARG messages forward within one newsgroup.
  142. Negative ARG moves backward.
  143. If ARG is 1 or -1, moves to next or previous newsgroup if at end." "p"])
  144. (fset 'news-previous-message #[(arg) "└    [!ç" [news-next-message arg] 2 "\
  145. Move ARG messages backward in current newsgroup.
  146. With no arg or arg of 1, move one message
  147. and move to previous newsgroup if at beginning.
  148. A negative ARG means move forward." "p"])
  149. (fset 'news-move-to-group #[(arg) "┬     \"─╚W½ô[SA@8ë¼ö╔╩!ê¬Ä@8ë¼ä╔╦!ê╠!+ç" [news-current-news-group cg news-get-motion-lists news-user-group-list nil ngrp plist arg 0 error "No previous news groups" "No more news groups" news-select-news-group] 3 "\
  150. Given arg move forward or backward to a new newsgroup."])
  151. (fset 'news-next-group #[nil "└┴!ê\n?¡å└┴!ê¬vç" [news-move-to-group 0 news-list-of-files] 2 "\
  152. Moves to the next user group." nil])
  153. (fset 'news-previous-group #[nil "└┴!ê\n?¡å└┴!ê¬vç" [news-move-to-group -1 news-list-of-files] 2 "\
  154. Moves to the previous user group." nil])
  155. (fset 'news-get-motion-lists #[(arg listy) "┴─┼ì*ç" [listy nil result temp out (byte-code "¡₧@    Ü½ï┬├A CB\"ê¬l@C ñAë¼c┼ç" [temp arg throw out result nil] 5)] 2 "\
  156. Given a msgnumber/group this will return a list of two lists;
  157. one for moving forward and one for moving backward."])
  158. (byte-code "└┴Mê┬├Mç" [news-read-in-file #[(filename) "└ ê`┬ !ê─ êë½¢    bê╟@@\"½å@A êAë¼e)    bê╔yêm½à╩╦!¬é    b)ç" [erase-buffer start insert-file-contents filename news-convert-format news-group-hook-alist hooks string-match news-group-name 1 message "(Empty file?)"] 4] news-convert-format #[nil "èî`┴┬├Å┴┴ ¡¬ }êbê╟╚┴╔#ë¼ö½Ébê╟╩!ê╦yê╠ ê╠ ê═!êb.ç" [start nil (byte-code "└┴!ê`ç" [search-forward "\n\n"] 2) ((error)) end has-from has-date search-forward "\nFrom:" t "\nDate:" 0 kill-line news-delete-headers] 5]] 2)
  159. (fset 'news-show-all-headers #[nil "└ë├ ê─ ê┼╟╚╔\n#╦╠!R!*ç" [nil buffer-read-only news-ignored-headers erase-buffer news-set-mode-line news-read-in-file news-path string-subst-char 47 46 news-current-news-group "/" int-to-string news-current-message-number] 6 "\
  160. Redisplay current news item with all original headers" nil])
  161. (fset 'news-delete-headers #[(pos) "bê    ;¡ù┬    ├─#¡É┼yê`┬╞!ê╟uê`|ê¬iç" [pos news-ignored-headers re-search-forward nil t 0 "\n[^     ]" -1] 4])
  162. (fset 'news-exit #[nil "└┴!½º┬├ \"ê┼ ê╞ ê┬╟ \"ê┬╚!ê╔╩!½ä╩p!ê╦ !ê═ëç┬╧!ç" [y-or-n-p "Do you really wanna quit reading news ? " message "Updating %s..." news-startup-file news-update-newsrc-file news-write-certifications "Updating %s... done" "Now do some real work" fboundp bury-buffer switch-to-buffer news-buffer-save nil news-user-group-list ""] 3 "\
  163. Quit news reading session and update the .newsrc file." nil])
  164. (fset 'news-update-newsrc-file #[nil "└┴\n!! ─è½Å╔\n\"A@A @Aáêqê½╠╔@\n\"ëA@A@A@AA@U¼«╠bê═@╬P─╧#½å╨─!ê¬è@╤▒ê╥╙!ê╘A@@!╒╘A@A@!▒êAë¼4½╖╔@\n\"╠bê═@╬P─╧#½Ü╥╫!ê╨─!ê╪╘A@@!╒╘A@A@!▒êAë¼I┘ ê┌p!,ç" [find-file-noselect substitute-in-file-name news-startup-file news-user-group-list nil group tem newsrcbuf news-current-news-group assoc news-group-article-assoc news-point-pdl 0 search-forward ": " t kill-line ": \n" backward-char 1 int-to-string "-" news-unsubscribe-groups 2 "! " save-buffer kill-buffer] 6 "\
  165. Updates the .newsrc file in the users home dir."])
  166. (fset 'news-unsubscribe-group #[(group) "└    !ç" [news-unsubscribe-internal group] 2 "\
  167. Removes you from newgroup GROUP." (byte-code "└┴\n\"Cç" [completing-read "Unsubscribe from group: " news-group-article-assoc] 3)])
  168. (fset 'news-unsubscribe-current-group #[nil "└┴!¡â┬ !ç" [y-or-n-p "Do you really want to unsubscribe from this group ? " news-unsubscribe-internal news-current-news-group] 2 "\
  169. Removes you from the newsgroup you are now reading." nil])
  170. (fset 'news-unsubscribe-internal #[(group) "└    \n\"ë½₧     B└    \n\"A@A@Aáê    ܽâ╟ ê╚╔!¬ä╩╦    \")ç" [assoc group news-group-article-assoc tem news-unsubscribe-groups news-point-pdl news-current-news-group news-next-group message "" error "Not subscribed to group: %s"] 4])
  171. (fset 'news-save-item-in-file #[(file) "└ed    #ç" [append-to-file file] 4 "\
  172. Save the current article that is being read by appending to a file." "FSave item in file: "])
  173. (fset 'news-get-pruned-list-of-files #[(gp-list end-file-no) "¡Ä┴ ┬ !Ü¡å─╞ë?à┐╔╩╦ #P ─¡æ╬ ╧╨!Q!¡å╤ ╥#╞─½¥╞V½ìBSë¬o¬α╒ !?«à╓ !??¡╤╫╪┘Åëë½½┌█@\"½ö╒ ╧@Q!¼ë▄@!X½ç▌@\"Aë¼U¼å▐─¬Æ▀▄\"αß\"ëëGS£+ë\"«äπ ê─)ç" [end-file-no news-set-current-certifiable news-group-certification gp-list nil news-list-of-files t news-list-of-files-possibly-bogus news-path string-subst-char 47 46 file-directory tem file-exists-p "/" int-to-string news-find-first-or-last 1 last-winner news-current-group-end file-directory-p file-readable-p error (directory-files file-directory) ((file-error (byte-code "└    8┬ÿ½ç├─\"ê¬å╞╟    A\"ê╚ç" [2 error "permission denied" message "Newsgroup %s is read-protected" gp-list signal file-error nil] 3))) string-match "^[0-9]*$" string-to-int delq 0 mapcar sort < answer news-set-current-group-certification] 6 "\
  174. Given a news group it finds all files in the news group.
  175. The arg must be in slashified format.
  176. Using ls was found to be too slow in a previous version."])
  177. (fset 'news-read-files-into-buffer #[(group reversep) "└    \n\"A@ë@ A@╞    ╞    ╞\n╦ ê╠    \"ê╦ ê @ A@BC¼Æ╧ ê\n    ╦ ê╞¬┐@½å\n    ¬ô@V½ê@@íê    ╥ ê╦ ê╙╒╓╫    #╪┘    !R!ê╥ ê╦ ê┌,ç" [assoc group news-group-article-assoc files-start-end start-file-no end-file-no nil buffer-read-only news-current-news-group news-current-message-number news-current-group-end news-set-mode-line news-get-pruned-list-of-files news-point-pdl news-list-of-files erase-buffer news-current-group-begin reversep news-set-message-counters news-read-in-file news-path string-subst-char 47 46 "/" int-to-string t] 7])
  178. (fset 'news-add-news-group #[(gp) "┴┬├ #Pè╞ \"ä¬╚╔\n!! ╠!âú═ !ê╬bê╧ ╨P╤╥#½Æ╙╘ \"ê╒╓!ê╫╪!ê┘cê¬ì╙┌ \"ê█ ê ▄▒ê▌ ╤╥#ê╤ëëë !╧Γ╤╥#ê` ╬yê`!╤ê`! ╓Z{π {!$$@$A$AEDB-σ êµp!¬ä╙τ \")¬ä╙Φ \"*ç" [news-path string-subst-char 47 46 gp file-dir assoc news-group-article-assoc find-file-noselect substitute-in-file-name news-startup-file newsrcbuf file-directory-p switch-to-buffer 0 search-forward "! " nil t message "Re-subscribing to group %s." backward-char 2 delete-char 1 ":" "Added %s to your list of newsgroups." end-of-buffer ": 1-1\n" search-backward tem endofline end start ": " news-parse-range range save-buffer kill-buffer "Newsgroup %s doesn't exist." "Already subscribed to group %s."] 5 "\
  179. Resubscribe to or add a USENET news group named GROUP (a string)." "sAdd news group: "])
  180. (fset 'news-make-link-to-message #[(number newname) "└    ┬├─#╞½å╚!¬é    R\n\"ç" [add-name-to-file news-path string-subst-char 47 46 news-current-news-group "/" number prefix-numeric-value news-current-message-number newname] 6 "\
  181. Forges a link to an rnews message numbered number (current if no arg)
  182. Good for hanging on to a message that might or might not be
  183. automatically deleted." "P\nFName to link to message: "])
  184. (fset 'caesar-region #[(&optional n) "º¼ä┴¬Æ┬W½ë├[├ªZ¬ä├ª┬U?à╓─┼!½ë╞H╞\\U¼ß┬╟╚    \n ╠═!ê╬╧┬\" ╧W½Ä ëIê Të ¬n\nëPë\nû    ┬ ┬├W½ñ ╞\\\n \\HIê ╨\\     \\HIê Të ¬X╠╤!ê+╥ ╙ ┬╚ë ë{ëG W½ò  HHIê Të ¬fbê╪\"êc-ç" [n 13 0 26 boundp caesar-translate-table 97 "abcdefghijklmnopqrstuvwxyz" nil upper lower i message "Building caesar-translate-table..." make-vector 256 65 "Building caesar-translate-table... done" region-beginning region-end len str to from kill-region] 6 "\
  185. Caesar rotation of region by N, default 13, for decrypting netnews." (byte-code "½à┴!Cç┬Cç" [current-prefix-arg prefix-numeric-value nil] 2)])
  186. (fset 'news-caesar-buffer-body #[(&optional rotnum) "è┬├ebê─┼╟ܽâ╚¬é    ┼Q┬╩#½â`¬üe!êdbê╦ !ê    ë*ç" [buffer-read-only buffer-status nil set-mark search-forward "\n" major-mode news-mode "" mail-header-separator t caesar-region rotnum] 5 "\
  187. Caesar rotates all letters in the current buffer by 13 places.
  188. Used to encode/decode possibly offensive messages (commonly in net.jokes).
  189. With prefix arg, specifies the number of places to rotate each letter forward.
  190. Mail and USENET news headers are not rotated." (byte-code "½à┴!Cç┬Cç" [current-prefix-arg prefix-numeric-value nil] 2)])
  191.